home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / roulette.l < prev    next >
Text File  |  2007-02-28  |  1KB  |  44 lines
  1. 0010 PRINT "ROULETTE"
  2. 0020 REPEAT 
  3. 0030 INPUT "HOW MUCH CASH ARE YOU PLAYING?": CASH
  4. 0040 UNTIL CASH>0 AND CASH<=100
  5. 0050 REPEAT 
  6. 0060 REPEAT 
  7. 0070 INPUT "TYPE 1 FOR ODDEVENS OR 2 FOR SINGLES:": GAME
  8. 0080 UNTIL GAME=1 OR GAME=2
  9. 0090 PLAY
  10. 0100 PRINT "NUMBER WAS";NUM //<< ADDED
  11. 0110 IF WIN=0 THEN PRINT "YOU LOSE"
  12. 0120 IF WIN>0 THEN PRINT "YOU WIN";WIN
  13. 0130 CASH:=CASH+WIN
  14. 0140 PRINT "YOU HAVE";CASH
  15. 0150 REPEAT 
  16. 0160 INPUT "TYPE 0 TO QUIT OR 1 TO CONTINUE:": CONTINUE
  17. 0170 UNTIL CONTINUE=0 OR CONTINUE=1
  18. 0180 UNTIL CONTINUE=0 OR CASH<=0
  19. 0190 PRINT "THANK YOU FOR THE GAME."
  20. 0200 //
  21. 0210 PROC PLAY 
  22. 0220 NUM:=RND(1,36)
  23. 0230 REPEAT 
  24. 0240 INPUT "HOW MUCH DO YOU BET?": BET
  25. 0250 UNTIL BET>0 AND BET<=CASH
  26. 0260 CASH:=CASH-BET; WIN:=0
  27. 0270 IF GAME=1 THEN ODDEVENS
  28. 0280 IF GAME=2 THEN SINGLES
  29. 0290 ENDPROC PLAY
  30. 0300 //
  31. 0310 PROC ODDEVENS 
  32. 0320 REPEAT 
  33. 0330 INPUT "TYPE 1 FOR ODD OR 0 FOR EVEN:": CHOICE
  34. 0340 UNTIL CHOICE=1 OR CHOICE=0
  35. 0350 IF CHOICE=NUM MOD 2 THEN WIN:=2*BET
  36. 0360 ENDPROC ODDEVENS
  37. 0370 //
  38. 0380 PROC SINGLES 
  39. 0390 REPEAT 
  40. 0400 INPUT "CHOOSE FROM 1 TO 36:": CHOICE
  41. 0410 UNTIL CHOICE>=1 AND CHOICE<=36
  42. 0420 IF CHOICE=NUM THEN WIN:=35*BET
  43. 0430 ENDPROC SINGLES
  44.